home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
DEMONSTR
/
TIMWIN.ZIP
/
SWITCHD.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-09-22
|
466b
|
40 lines
; switchd -- displays the 8 bitplanes of 'bswitch'
;******************************************************
parms
int windis
endparms
dest p
show p
copy bswitch >a
curs 128 128
frmt 220 220
era p
dump pc 255
and p a
save q
redu q
dest q
bit p1 8
copy q1 r1
bit p1 7
copy q1 r2
bit p1 6
copy q1 s1
bit p1 5
copy q1 s2
bit p1 4
copy q1 r3
bit p1 3
copy q1 r4
bit p1 2
copy q1 s3
bit p1 1
copy q1 s4
era p
era q
stop